EnigmA Amiga Run 1995 October/EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso/Aminet/util/cdity/ScreenTabV1_25.lha/ScreenTab/Deutsch/Install_Deutsch

Text File | 1995-05-02 | 7KB | 196 lines

; Installations-Skript für ScreenTab V1.25
; Autor: Michael Link
; Erste Erstellung : 28.10.94
; Letzte Änderung  : 02.05.95

(set DIRHELP (cat "An dieser Stelle müssen Sie angeben, in welchem\n"
                  "Verzeichnis ScreenTab installiert werden soll.\n\n"
                  "Wenn ScreenTab gleich nach dem Start des Computers\n"
                  "aktiv sein soll, sollten Sie als Zielverzeichnis\n"
                  "\"SYS:WBStartup\" angeben."
             )
)

(set DIR_REQUEST    (cat "Geben Sie jetzt das Verzeichnis an,\n"
                         "in dem ScreenTab installiert werden soll."
                    )
)

(set WHICH_HOTKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "ScreenTab-Voreinstellungen aufgerufen werden ?"
                    )
)

(set WHICH_SCRKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "Screens umgeschaltet werden ?\n\n"
                         "(Bitte geben Sie hier keine SHIFT-Taste an, da\n"
                         "diese für das Zurückblättern gebraucht werden !)"
                    )
)

(set WHICH_WINKEY   (cat "\n\nMit welcher Tastenkombination sollen die\n"
                         "Fenster umgeschaltet werden ?\n\n"
                         "(Bitte geben Sie hier keine SHIFT-Taste an, da\n"
                         "diese für das Zurückblättern gebraucht werden !)"
                    )
)

(set COPY_PREFS     "\n\nKopiere Voreinstellungsdatei ...")

(set VERSION_PROMPT (cat "\n\nEine ältere Voreinstellungsdatei ist auf\n"
                         "ihrem System installiert. Um diese Einstellungen\n"
                         "mit der neuen Version nutzen zu können, muß\n"
                         "eine Konvertierung vorgenommen werden.\n\n"
                         "Wollen Sie das ?"
                    )
)

(set PLEASE_RESET   (cat "\n\nUm die neuen Einstellungen wirksam werden\n"
                         "zu lassen, müssen Sie jetzt einen Reset durch-\n"
                         "führen.\n\n"
                         "Viel Spaß mit ScreenTab !"
                    )
)

(set vernum (getversion "locale.library" (resident)))
(set ver (shiftright vernum 16))


; ***********************************************************************
; *                                                                     *
; * Eingabe des Zielverzeichnis                                         *
; *                                                                     *
; ***********************************************************************

(set DIR (askdir (prompt DIR_REQUEST)
                 (help DIRHELP)
                 (default "SYS:WBStartup")
         )
)

(set @default-dest DIR)


; ***********************************************************************
; *                                                                     *
; * Festlegung der Tool-Types                                           *
; *                                                                     *
; ***********************************************************************

(set HOTKEY (askstring (prompt WHICH_HOTKEY)
                       (help @askstring-help)
                       (default "ctrl alt s")
            )
)

(set SWITCHKEY (askstring (prompt WHICH_SCRKEY)
                          (help @askstring-help)
                          (default "LCommand Tab")
               )
)

(set WINSWITCHKEY (askstring (prompt WHICH_WINKEY)
                          (help @askstring-help)
                          (default "LCommand `")
                  )
)

(tooltype (prompt "Schreibe Tool-Type HOTKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "CX_POPKEY" HOTKEY)
)

(tooltype (prompt "Schreibe Tool-Type SWITCHKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "SWITCHKEY" SWITCHKEY)
)

(tooltype (prompt "Schreibe Tool-Type WINSWITCHKEY")
          (help)
          (dest "/ScreenTab")
          (settooltype "WINSWITCHKEY" WINSWITCHKEY)
)

(copyfiles (prompt "Kopiere ScreenTab in das Zielverzeichnis")
           (help @copyfiles-help)
           (source "/ScreenTab")
           (dest DIR)
           (infos)
)


; ***********************************************************************
; *                                                                     *
; * Abfrage nach vorhandenem Prefs-File                                 *
; * und dessen Konvertierung                                            *
; *                                                                     *
; ***********************************************************************

(if (= (exists "ENVARC:ScreenTab.prefs") 1)
    (
        (if (= (run "/GetSCRTVersion" (safe) ) 2)
            (
                (if (askbool (prompt VERSION_PROMPT)
                             (help)
                             (default 1)
                    )
                    (if (= (run "/PrefsConvert" (safe) ) 0)
                        (copyfiles (prompt)
                                   (help)
                                   (source "T:SCRT.TMP")
                                   (dest "ENVARC:")
                                   (newname "ScreenTab.prefs")
                        )
                        (message "Fehler beim Konvertieren !!!")
                    )
                )
            )
        )
    )
    (
        (copyfiles (prompt COPY_PREFS)
                   (help)
                   (source "/ScreenTab.prefs")
                   (dest "ENVARC:")
        )
    )
)


; ***********************************************************************
; *                                                                     *
; * Installation der Kataloge                                           *
; *                                                                     *
; ***********************************************************************

(if (>= ver 38)
    (
        (set CATALOGS (askoptions (prompt (cat "Welche Sprach-Kataloge sollen "
                                               "installiert werden ?"))
                                  (help)
                                  (choices "Deutsch" "Schwedisch")
                                  (default 1)
                      )
        )
        (if (BITAND CATALOGS 1)
            (copyfiles (prompt "Kopiere deutschen Katalog ...")
                       (help)
                       (source "/catalogs/deutsch/ScreenTab.catalog")
                       (dest   "LOCALE:Catalogs/deutsch")
            )
        )
        (if (BITAND CATALOGS 2)
            (copyfiles (prompt "Kopiere schwedischen Katalog ...")
                       (help)
                       (source "/catalogs/svenska/ScreenTab.catalog")
                       (dest   "LOCALE:Catalogs/svenska")
            )
        )
    )
)

(message PLEASE_RESET)